10 POKE 56,56:POKE 55,0:CLR:POKE 53280,6:POKE53281,6:PRINT CHR$(147)
20 CS$=CHR$(147):RV$=CHR$(18)
30 PRINT CHR$(14)CHR$(8):CR$=CHR$(13)
40 DV=PEEK(186):IF DV<8 THEN DV=8
50 POKE 147,0:SYS57812"SCRN TILE(680).O",DV,1:SYS62631
60 SYS 680
70 PRINT CHR$(5):INPUT"    [196]ISK DRIVE DEVICE NUMBER (8-15)";DV$
80 PRINT:PRINTRV$"  [204]OADING FILES....[207]NE MOMENT PLEASE... "
90 DV=VAL(DV$):IF DV$="" THEN END
100 GOSUB 320:REM DISK DRIVE CHECK
110 REM SYS57812"ITALICS.SET",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
120 REM POKE53272,31
130 SYS57812"DISPLAY FONT.O",DV,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
140 DV=VAL(DV$):CK=0:CR$=CHR$(13):CD$=CHR$(17):HM$=CHR$(19):SP$=CHR$(32)
150 GOSUB 430:REM TITLE SCREEN
160 POKE 53272,22:SYS 680
170 POKE 214,12:PRINT:PRINT"[208]RESS [196] FOR A DEMONSTRATION OF [201][210][209]      "
180 PRINT"[196][210][201][214][197] [212][207][206][197].[207] OR [209] TO EXIT TO [194][193][211][201][195].     ":Q$=CHR$(34)
190 B$="":GET B$:IF B$="" THEN190 
200 IF B$="D" OR B$="[196]" THEN 240
210 IF B$="Q" OR B$="[209]" THEN 230
220 GOTO 190
230 POKE 55,0:POKE 56,160:SYS 64738:END
240 PRINT CS$CD$CD$CD$"LOAD"Q$"IRQ DRIVE TONE.O"Q$","DV",1"
250 PRINT CD$CD$CD$CD$"NEW"
260 PRINT CD$CD$"SYS 820"
270 PRINT CD$CD$"LOAD"Q$"[199]AZETTE'S [199]REAT!"Q$","DV
280 PRINT CD$CD$CD$CD$"FOR T=1 TO 10000:NEXT:FORX=0TO24:POKE54272+X,0:NEXT"
290 PRINT CD$CD$"[193]FTER DEMONSTRATION, ENTER SYS 823":FOR T=1 TO 5000:NEXT
300 FOR I=1 TO 5:POKE 630+I,13:NEXT:POKE 198,5:PRINT HM$
310 POKE 55,0:POKE 56,160:END
320 CLOSE15:OPEN 15,DV,15:CLOSE15
330 IF ST=0 THEN370 
340 PRINTCD$"[212]URN YOUR DISK DRIVE ON AND PRESS"
350 PRINT" [210][197][212][213][210][206]."
360 B$="":GET B$:IF B$<>CR$ THEN360 
370 OPEN15,DV,15,"I":INPUT#15,ER:CLOSE15
380 IF ER=0 THEN RETURN
390 PRINTCD$"[208]UT A DISKETTE IN YOUR DISK DRIVE"
400 PRINT"AND PRESS [210][197][212][213][210][206]."
410 B$="":GET B$:IF B$<>CR$ THEN410 
420 GOTO370 
430 DATA "[199]AZETTE PRESENTS:","[201]NTERRUPT [196]RIVEN","[196]RIVE [197]RROR [212]ONE [199]ENERATOR"
440 DATA "[208]RESS ANY KEY TO CONTINUE"
450 FOR X=1 TO 4:READ AU$(X):NEXT
460 SYS 680
470 SYS 52736
480 POKE 214,12:PRINT:PRINTSPC(20-LEN(AU$(1))/2)AU$(1):PRINT
490 PRINTSPC(20-LEN(AU$(2))/2)AU$(2):PRINT
500 PRINTSPC(20-LEN(AU$(3))/2)AU$(3)
510 POKE214,22:PRINT:PRINTSPC(20-LEN(AU$(4))/2)AU$(4)
520 GET A$:IF A$="" THEN520 
530 RETURN